home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / FTPDIREC.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-04-12  |  7.3 KB  |  240 lines
  1. VERSION 2.00
  2. Begin Form frmDirectory 
  3.    BackColor       =   &H00C0C0C0&
  4.    ClientHeight    =   3570
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5265
  8.    ControlBox      =   0   'False
  9.    Height          =   3975
  10.    Left            =   1035
  11.    LinkTopic       =   "Form3"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3570
  16.    ScaleWidth      =   5265
  17.    Top             =   1140
  18.    Width           =   5385
  19.    WindowState     =   2  'Maximized
  20.    Begin TextBox txtQuote 
  21.       Height          =   285
  22.       Left            =   3840
  23.       TabIndex        =   13
  24.       Top             =   2040
  25.       Width           =   1335
  26.    End
  27.    Begin CommandButton cmdQuote 
  28.       Caption         =   "Quote"
  29.       FontBold        =   0   'False
  30.       FontItalic      =   0   'False
  31.       FontName        =   "MS Sans Serif"
  32.       FontSize        =   8.25
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       Height          =   375
  36.       Left            =   2805
  37.       TabIndex        =   12
  38.       Top             =   2040
  39.       Width           =   975
  40.    End
  41.    Begin TextBox txtDelDir 
  42.       Height          =   285
  43.       Left            =   1125
  44.       TabIndex        =   9
  45.       Top             =   1395
  46.       Width           =   1335
  47.    End
  48.    Begin CommandButton cmdDelDir 
  49.       Caption         =   "Del Dir"
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       Height          =   375
  57.       Left            =   45
  58.       TabIndex        =   8
  59.       Top             =   1395
  60.       Width           =   975
  61.    End
  62.    Begin TextBox txtMakeDir 
  63.       Height          =   285
  64.       Left            =   1125
  65.       TabIndex        =   7
  66.       Top             =   915
  67.       Width           =   1335
  68.    End
  69.    Begin CommandButton cmdMakeDir 
  70.       Caption         =   "Make Dir"
  71.       FontBold        =   0   'False
  72.       FontItalic      =   0   'False
  73.       FontName        =   "MS Sans Serif"
  74.       FontSize        =   8.25
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   375
  78.       Left            =   45
  79.       TabIndex        =   6
  80.       Top             =   915
  81.       Width           =   975
  82.    End
  83.    Begin CommandButton cmdCdup 
  84.       Caption         =   "Parent Dir"
  85.       FontBold        =   0   'False
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Sans Serif"
  88.       FontSize        =   8.25
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   375
  92.       Left            =   45
  93.       TabIndex        =   5
  94.       Top             =   2595
  95.       Width           =   975
  96.    End
  97.    Begin CommandButton cmdChangeDir 
  98.       Caption         =   "Change Dir"
  99.       FontBold        =   0   'False
  100.       FontItalic      =   0   'False
  101.       FontName        =   "MS Sans Serif"
  102.       FontSize        =   8.25
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       Height          =   375
  106.       Left            =   45
  107.       TabIndex        =   4
  108.       Top             =   435
  109.       Width           =   975
  110.    End
  111.    Begin CommandButton cmdGetCurrentDirectory 
  112.       Caption         =   "Get Dir"
  113.       FontBold        =   0   'False
  114.       FontItalic      =   0   'False
  115.       FontName        =   "MS Sans Serif"
  116.       FontSize        =   8.25
  117.       FontStrikethru  =   0   'False
  118.       FontUnderline   =   0   'False
  119.       Height          =   375
  120.       Left            =   45
  121.       TabIndex        =   3
  122.       Top             =   2115
  123.       Width           =   975
  124.    End
  125.    Begin CommandButton cmdDirList 
  126.       Caption         =   "List Dir"
  127.       FontBold        =   0   'False
  128.       FontItalic      =   0   'False
  129.       FontName        =   "MS Sans Serif"
  130.       FontSize        =   8.25
  131.       FontStrikethru  =   0   'False
  132.       FontUnderline   =   0   'False
  133.       Height          =   375
  134.       Left            =   2805
  135.       TabIndex        =   2
  136.       Top             =   435
  137.       Width           =   975
  138.    End
  139.    Begin TextBox txtDirectory 
  140.       Height          =   285
  141.       Left            =   1125
  142.       TabIndex        =   1
  143.       Top             =   435
  144.       Width           =   1335
  145.    End
  146.    Begin TextBox txtPattern 
  147.       Height          =   285
  148.       Left            =   3885
  149.       TabIndex        =   0
  150.       Top             =   435
  151.       Width           =   1335
  152.    End
  153.    Begin Label Label3 
  154.       BackColor       =   &H00C0C0C0&
  155.       Caption         =   "Command:"
  156.       FontBold        =   0   'False
  157.       FontItalic      =   0   'False
  158.       FontName        =   "MS Sans Serif"
  159.       FontSize        =   8.25
  160.       FontStrikethru  =   0   'False
  161.       FontUnderline   =   0   'False
  162.       Height          =   255
  163.       Left            =   3840
  164.       TabIndex        =   14
  165.       Top             =   1800
  166.       Width           =   975
  167.    End
  168.    Begin Label Label1 
  169.       BackColor       =   &H00C0C0C0&
  170.       Caption         =   "Directory:"
  171.       FontBold        =   0   'False
  172.       FontItalic      =   0   'False
  173.       FontName        =   "MS Sans Serif"
  174.       FontSize        =   8.25
  175.       FontStrikethru  =   0   'False
  176.       FontUnderline   =   0   'False
  177.       Height          =   255
  178.       Left            =   1125
  179.       TabIndex        =   11
  180.       Top             =   195
  181.       Width           =   1335
  182.    End
  183.    Begin Label Label2 
  184.       BackColor       =   &H00C0C0C0&
  185.       Caption         =   "Pattern:"
  186.       FontBold        =   0   'False
  187.       FontItalic      =   0   'False
  188.       FontName        =   "MS Sans Serif"
  189.       FontSize        =   8.25
  190.       FontStrikethru  =   0   'False
  191.       FontUnderline   =   0   'False
  192.       Height          =   255
  193.       Left            =   3885
  194.       TabIndex        =   10
  195.       Top             =   195
  196.       Width           =   975
  197.    End
  198. Option Explicit
  199. Private Sub cmdCdup_Click ()
  200.     ClearListDir
  201.     MainForm.Ftp1.Action = FtpActionParentDir
  202. End Sub
  203. Private Sub cmdChangeDir_Click ()
  204.     Dim s As String
  205.     s = txtDirectory.Text
  206.     If (s <> "") Then
  207.         ClearListDir
  208.         MainForm.Ftp1.Directory = s
  209.         MainForm.Ftp1.Action = FtpActionChangeDir
  210.     End If
  211. End Sub
  212. Private Sub cmdDelDir_Click ()
  213.     MainForm.Ftp1.DstFilename = txtDelDir.Text
  214.     MainForm.Ftp1.Action = FtpActionDeleteDir
  215. End Sub
  216. Private Sub cmdDirList_Click ()
  217.     ClearListDir
  218.     MainForm.Ftp1.Pattern = txtPattern.Text
  219.     On Error Resume Next
  220.     MainForm.Ftp1.Action = FtpActionGetDirList
  221.     If (Err <> 0) Then
  222.         If (Err = 20425) Then
  223.             MsgBox "Server busy, try again later."
  224.         Else
  225.             MsgBox Error
  226.         End If
  227.     End If
  228. End Sub
  229. Private Sub cmdGetCurrentDirectory_Click ()
  230.     MainForm.Ftp1.Action = FtpActionGetCurrentDir
  231. End Sub
  232. Private Sub cmdMakeDir_Click ()
  233.     MainForm.Ftp1.DstFilename = txtMakeDir.Text
  234.     MainForm.Ftp1.Action = FtpActionCreateDir
  235. End Sub
  236. Sub cmdQuote_Click ()
  237.     MainForm.Ftp1.QuoteCmd = txtQuote.Text
  238.     MainForm.Ftp1.Action = FtpActionQuote
  239. End Sub
  240.